10 POKE52,78:POKE56,78:POKE51,0:POKE55,0:CLR:POKE808,234
20 POKE 53280,0:POKE 53281,0:B$="HELLO":POKE646,7:PRINT"[147]":POKE199,1
30 PRINT"INSERT FRONTSIDE OF SCENARIO DISK":PRINT
40 POKE199,1:PRINT"PRESS <RETURN> TO CONTINUE":POKE198,0:POKE631,0
50 IFPEEK(631)<>13THEN50
60 POKE646,PEEK(53281):POKE808,237
145 PRINT"[147]LOAD "CHR$(34);B$;CHR$(34)",8"
150 POKE 198,8:FOR T=0 TO 7:READ K:POKE 631+T,K:NEXT
160 DATA 19,13,32,32,82,85,78,13
170 CLR:NEW